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AMIGOS DEL 




EDITORIAL 


En los últimos meses ha alcanzado el MSX cotas 
de estimable difusión, hecho que constituye por sí 
mismo motivo más que suficiente para que le 
dedicásemos toda nuestra atención. Por ello, 
salimos con AMIGOS DEL MSX. 

En el quiosco, veremos, una revista más para el 
usuario, una nueva manera y un distinto enfoque de 
cómo utilizar el MSX. 

Con una simple mirada al sumario, en esta misma 
página, podéis haceros una ¡dea de la trayectoria 
que pretendemos seguir. No obstante, como la 
revista está pensada y hecha para vosotros, sería 
muy interesante que participaseis en ella dando 
vuestra opinión, haciendo todo tipo de 
sugerencias, indicando, en una palabra, cómo 
queréis que sea vuestra revista. 


Esperamos vuestras opiniones. Que os guste y que 
os divirtáis. 
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70 EUGÉNÍOGARRIDOGOMEZ 
ISO 


250 

260 


0000000000000000000 


1986 


160I ? 0000000000000000000 


0000 
MOTO 0000 
0000 


120 COLOR 3,6, 10 
130 SCREEIM 3 
140 OREN"GRP: ” AS#1 
13ÍO - rs^ T •<43 , 80 ) « 6 : PRI NT# 1, " SUPEÍR 

160 FOR YfelLTG.1500: NEXI 

170 GLOSE 


180 COLOR 1 j. 1$ I 
190 SCREEN 1 

200 LOCATE 3, 10: PRINT” JOTSTICK O CURSOR-CJ/C3 
210[NKEY¿¡ 1 

1J3.THEN I = ll 

VDP (7) =;I.|. 

IF X$="J"GR X*=="j" THEN CT=1 s GGTG270 
it’ X$ ! h"t"flR! C" THEN CT=0: G0T0270 

GOTO 210t 
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270 COLOR 15 , 4 ,IspCRBÉN 2,2 


280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 


GOSUB 
YH= 20 :XH= 34 :GOSUB 
F'UTSPR I TE 
PUTSPRITE 
YH=YH+V 1 
IF YH >255 


510 


2 , (YH, XH) , 
1 ], ( YH, XH) 


Uyt».4¡~ 

, 8 J. 






THEN XH= 84 sYH =0 


A=ST ICK (CT ) : IF A =1 THEN VE-VE+ 1 : LINE f ( 0 , 170 )f(VE, 176 ?) , 6 , BF: VI =VE /10 


VE-O:LINE (VE, 470 ) 

•• I. I. (•• I I-- L {.i i. 

SA= 1 s EN -1 


-< 25 d 

. £ / *?er;es; 


176 ), 4 ,BF:Vi=V /4 


.1 


I 


400 




176 ), 4 ,BF 




IF A “5 THEN VE=VE— 3 :LINE (VE, 170 ) 

IF VlOO THEN 

B=STRIG (CT) !.i..j 

IF B=-l AND EN =0 THEN 
IF SA =1 THEN XH=XH —2 
IF BA =1 AND XH <84 THEN XH=XH+: 

410 IF SA =1 AND XH =<60 THEN BA= 1 :SA=Q 

420 IF XH =>84 THEN EN= 0 :SA= 0 :BA =0 

430 IF ROINT(YH+ 16 ,XH+ 16)=1 THEN GOTO 460 

440 IF XH =>84 AND YH=> 240 ' THEN 0 F= 0 F+ 1 :RESTORE:VE= 0 :GOTO 280 
450 GOTO 300 

460 FOR N =1 TO 10 :CIRCLE (YH+ 4 ,XH+ 4 ),N, 6 :NEXT N 
470 FOR N= 1 T 020 :YH=YH+ 5 :XH=XH+SIN (N* 10 ) 

480 PUTSPRITE 1 ,( YH, XH) , 8 , 2 :NEXT N 1 

490 FOR 1=1 T 013 :FOR N =1 TO 8 :A=INT(RND(i)* 255 ) 

H=YH+ 3 :XH=XH+SIN (N/ 1 O) 

500 NEXT I:RUN 

100 ), 15 :DRAW "E 10 D 10 L 10 
CIRCLE 




4 — 




VF'OKE 4352 +N, A: VF'OKE 12544 +N, A: Y 


510 PSET 


( 82 + 11 , 

100 +( 0 * 11 ), 95 ), 5,1 
URN 

520 FOR Kfl TO 4 :B$=‘"':FORI 
l-E# (K)=B$:NEXT 
530 LINE (O, 50 )-( 255 , 60 ), 10 ,BF 
540 
550 
560 
570 
580 


¡PAINT ( 97 , 98)[15 s FOR 0 = 


( 100 +( 0 * 11 ), 95 ), 3 ,IsPAINT ( 100 +( 0 * 11 ), 

. . 

1 T 0 32 : READ A*: B*=B$+CHR$ (VAL ( " 8 <H"+A$) ) : NEXT: SPRIT 


TO OF:CIRCLE ( 
95 ) , 1 : NEXT O: RETI 


LINE (O, 100 )-( 255 , 110 ), 10 ,BF 
2 ,( 20 , 34 ), 1 , 1 


PUTSPRITE 

PUTSPRITE 1 , ( 20 ,; 34 )¡, 8 , * 
PUTSPRITE 5 ,( 240 , 84 ), 10 , 4 

FOR N =0 TO 255 : VF'OKE 6144 + 512 +N, 
590 FOR N =1 
600 FOR N =0 
610 RETURN 


2 :NEXT N 


N 




TO 8 :A=INT(RND( 1 )* 255 ):VPOKE 4352 +N,A:NEXT 
TO 8 : A=INT (RND ( 1 ) * 255 ) : VF'OKE 8192 + 4352 +N, A: NEXT 


JlI 


N 






620 DATAO, O, O, 0 , 0 , O, 0 , 0 , 61 , 9 D, E, 77 , 94 , BF, 90 , 60 , O, O, O, O, O, 20 , 10 , D 8 , DO, BE, 71 , EC, 5 A 


i 

92 

, 12 ,C, 

0 , 1 , 

1 , 1 , 

• 4 * , 6 , 


6 , 

3 , 1 , 1 , 

1 , 0 , 

0 

, 1 

rñrPfcii 

9,19 

, 19 ,: 

19 ,i 

8 , 

IF 

, 19 , 19 


6 - 

30 

DATA 8 1 

0 , FO 

¡i F U j 

18 , 58 , 

18 

i, F 8 , 5 £ 

t,F 8 , 

9 

7,1 

í | 

5 

- 7 ,D 7 , 

FB, FF , 0 jh 

0,0 , 

FF 

•,2 

: 8 ,BD,C 

>F, AD 

— 

|.-.i 


|.|.j 

;•.~r~i 

i ! 


1 —• 

i I 
:...i 

i i 

i—[— 1 — 

i 1 1 

í.T. \ 


u,80,O,O,O,o,o, 
F7,DA,F1, 
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400 

410 

420 

430 

440 

450 

460 

470 

480 

490 

500 

S 10 

520 

530 

540 

550 

560 

570 

580 

590 

600 

¿10 

¿20 

630 

640 




PSÉT(7,170),4 
PRINT#1,"TIEMPO" 

Yf+I NT (RND<i)*78+ib+50:XI 
YK¿ I IÍIT (RND (1) *78+1 ) +50 5 XK 
D—ST I CK(CT) 

íF X>=255 OR X<=0 THEN X-0 
Y >í 7O THEN Y-170 
Y<0 THEN Y=0 7 
NX >—255THEN NXfcSf ! 

NÁ >4=255 THEN NA 
FX >—255 THEN FX 
INT(TIME/90) 


255:G0TG650 
O:G0TQ650 


IF 
í F 
IF 
IF 
IF 
X~ 

ÍÍINE 
ÍF T >—7 

ÍF xi<:o 

1 F 
IF 


S D¡ 

”5 


(80 j, 100) 

THEN 

THENf420! 
XK>239 THEN 430 
XICX+16 AND 


(80-1,185) , 1, BF 
F'R—1:GÜTÜ910 


IF 

ÜN 

IF 

TfI 

IF 

IF 

IF 

LE 7 


XKXX + 16 AND 


X I +16 > X 
XK+16 >X 


AND 

AND 


YICY+14 AND YI + 14>YTHEN GOTO 8207 
YK<Y+14 AND YK+14 >YTHEN GOTO 820 


O GOTO 590,61O,630,840 


y..i 

NA>X AND NACX+16 AND NB>y-10 
NA >150 AND NA<180 AND NB 
NX >X AND NXXX + 16 AND NY>Y 
NX >i 50 ANÍ) NX0185 AND NY {>140 AND 
FX >X AND NkX + 16 AND FY>Y~10 AND 
FX >150 AND FX<180 ANDFY >160 AND 


AND NB<Y+14THEN NA-X+15:NB-Y ELSE 
>160 AND NB<185 THEN 0-2 


10 AND NYCY+14THEN NX= 


NY4185 THEN 
FY<Y+14THEN 
FY<185 


NY 


X +15 ¿ 
NB~ 


NY- 

•16: 


! Ys ELBE 
NX—NA:O 


GOTO 650 
G0T0650 


FX-X+15:FY= 
THEN 0-4 ! 



650 XI-XI-12 


i ¡ | 


660 XK-XK+1275 




670 IFD-1 THEN 1 

Y-Y-4 



680 IF D-2THEN ' 

Y-Y-4:X- 

X +4 


690 IF D—3 THEN 

X-X+4 

í 1 : 


700IF D—4 THEN 

y=y+4:X- 

X+4 


710 IF D-5 THEN j 

y-Y+4 

f i ¡ 


720 IF D—6 THEN 1 

Y-Y+4:X- 

1 

X 


730 IF D—7 THEN 5 

X—X—4 

I 1 : 


740 Í F r DW8í THEN 1 
#50 PUT SPRITE2, 

y-Y-4:X- 
(X,Y) , 14 

X—4 

o 


, jL. 


760 PUT SPRITEO, 

(NA,NB), 

15 


77Ó PUT SF’RITE l, 

(NX,NY), 

15 


780 PUT SPRITE5, 

(XI,YI>, 

15,4 


790 PUT SPRITE4, 

(XK,YK), 

2, 4 


800 PUT SPRITE3, 

(FX,FY), 

9 ,3 


1 . 

i 


810 

820 

830 

840 

850 

860 

870 

880 

890 

900 

910 

920 

930 

940 

950 

960 

970 

980 

990 

i 00 C 

10K 

102 < 


GOTO 
BEEP 
GOTO 
PUT 
F'LJT 
ÍF 12 
PUT 
PUT 
IF NB< 
GOTO 


440 
BEEP 
650 

SPRITE 2, 
SF'RITE 3, 
=0 THEN 


BEEP:BEEP:BEEP:TIME-(T+5)* 100 


( 10 , 200 ) 
(30,200) 
NY-NY- 


20 
860 


IN— 1 

4:NB-NB-4:NX-NX-2:NA-NA-2 
,15 
,15 

THEN NB=200:NY=200:I2=i:FOR I=1 TO 


SPRITE1,(NX,NY) 
SPRITEO, <NA,NB) 


500 :NEXT:GOTO 910 


CLS: SCR'EEN 1: KEY 
IF PR=1 THEN 950 


OFF:COLOR 1,14,4 


LOCATE 4,7: PRINT"ENHORABUENA CAMPEON" 

IF PR=0 THEN 960 

LOCATE 4,6:PRINT"LO SIENTO HAS PERDIDO' 
LOCATE 2,11 SPRINT"OTRA PARTIDA SI O NO 
A$=INKEY$ 

1=1+1:IFI>13 THEN 1=0 
VDP< 7)=I 

>1 IF A$="5" OR A*="s" THEN CLEAR: SOTO 
> IF A$="n" OR A$="N" THEN END 
) BOTO 970 


CS/N3' 


10 
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PATOS 


OOOOOO 00 OOO 0000 do 00 o ooo o ooooOo 


00000 

00000 

00000 


patos: 


OQpop.Lyll'SdslANOyiPlo APTAS 

00000 

oodop !986 

00000 

O O O O O ü O O O U O U 0 O O O O O O O ü ü o o 0 o o o o o o 


I 10 j 

20 1 

■■••{•-■4-0. \ 

.) 

I 60 .i 

f 7 Ó I 

H-*-•'—í 

8íp I 
! '90 ( 

■rT" 0 oi 

-i 10: COLOR l y lbyjirtee: 

1 xio 1 DRENGEP s " Ai)# i j 
• lj0 DRAW..“.fc4BM24,79D39BM 
. 1464 , 1 1 8U86E4OD87i....8i i4 ? !. 7 
0L8U80L 1 SU8R 1 fc 1 2BM 1 ¡6 i. , ’ 

( Olp í .;.: • •}.|. 

frffr\ D R A 14 ' * B (41:! 4 8 h 38niEN T 
1 '50 P A IN T < j. 1 3 •• - 

F'A I ljsIT i( 23,7 , 4 i 

RA I NT(66, 1 1 7] s 9 


OCJÜÜÜ 

ÜÜGC3Ü 

□□□DO 

□GODO 

ÜÜÜQO 

00000 

OÜOOÜ 


: <EEN 


1 1 0D3LOU86Fj;40D45BN$6 j 77D1 L32U1BM24,69R24y2BLb.3!D2Í8l444^B-- 
T l.)A i L..9Ü 1 BM73, 68BM72, 69R24Ü29L24D29R1Gil 06Mí'l 13,31 R3908L16D8 
i D87R38LJ87L38F<1BM169,39071R22U7ÓL22C1BM2O9,32R39D7BM24Q, 3 


4 . 1.6 0 . 

ifo 
1 80 
[i 90 

i 200 


RAINT(211,34;,i 
RAI NT(163,34) , 12 
LINÉ(10,125)-(245 


NEXT- 


130 ), 5 ,BF 

2tü ; t:f N|; ( 20 ,166) ( 275 ,1130 ) , 1 1 , BF 

220 PSET 1(33, 170) , 11 :PR;INT#1 , "LUIS SANGUINO ARIAS 
2 30 POR !•:.:= 1 TO 2000 : NEXT 

240 POR K fI TO 6 : B$N " " s POR I = i TO S : READ A$ : B$=B$+CHR$ (VAL ( " S/H " +A*) ) 

<K)=BT:NEXT ~ " . 

250 i F'OR I K—7 Tü 9: B$1= " " s POR I: 


j $ (k)=BÍ¡ 

26U. CLS 

27O LINE (0, 165).- (255, 192) , 1 i , BF 
280 LINÉ (O, 168) - (255, 130) ,5, BF: 

290 LINE (O,130>-(£55,130),12 

300 DRAW"C 1 2BM0, 1 03R5LJ1E14L.J2E 1 IR 1F L7U1E22R8F25BM103 
D1F2D1F1U1E24D1F22U1 
310 F'A I NT ( 4 , 129) , 1 

320 LINÉ (80, 126) -(170,Jl3b> , 15, BF I 
330 PSET (82, 122); FRINT# 1 , "F'UNTOS= " 5 PT 
340 TIMÉ =0 
350 DEFINI' X, Y, I , J, V 

360 X-160: V2=256: 94=256 :A=1:B=2:FH 3 :G =4 
370 ON INTERVAL--: 1 0 GOSUB 720: INTERVAL ON 
380 ION ¿FRITE GOSUB 620 
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L 


90. 

400 V2M y2{~4¡) MQD256 

410 V3=(V3+3)M0D25g> 




4^TV4f2fM0D256 
F TIME pTibotrfTH 
<ky 
4Íd 


440.(W SPRI fFEl 1 

pRiteUa 



en:b rol 
r 7S) i, 11 , h 


+.b:,.S) t 

ÍVRJ23PU11,. 


47Ó_ 6ÜSUB 52p | 

480 PUTSPRI TE 4, (03, 

490 füirBNtTE 
500. éprtte! ok 


f h (04, 


510 (Bef o 3901 
52ó ck(brt 


530 JLE.0.t".3. 

540 IF D—7 


jqdEjNL (X.= 
X :: 


50 IF DI—1 frHÉN 580 

F STRÍB (Cif ) F :: fl 


560 

570 SÜÜNDfe, (i5 
16i SOUlkiD lfc; ,Ó. 


BOOND 


i , F 


O 


45!) , ;1, F 


65) ,11 , A 


±.3.)...tí0.d25 

3Í) Ho± 


6sW47... 

6 slH49 


THEN VB 
7 ,.TÍ: BOU 


-580 IFiYB >140 THEN.BA^6s80^6 

59Ó .Dife1: YB^YB-7 s PUT SPRITE 

600 IF YBO-Í6 THEN D]>0 


610 RETURN! 

lípfe 


¿"3 fpj Yfe ^1 

6401F¡YB72I 

,65¿.IF YB >41 

660 IF YB>6Í 
670 ÉEEP 


FRITE] ÜFF 


600 

. 


Bf : ™ 16 
iNErrfro 

toé.tBéT'(132 

71é RETURN 

_Z20.¿MAE 

730 


A,.B 


F.LG 


ANDT YB7C) 1TTIE1T 7 

I m : F 'Tm 

1 T* 4500 

AND¡ YB<(41] THEN 

V2-256:F 

|-34pT+ 

..AND).YB<Í61(.THEN. 

V3Í-0: ¿T" 

PT^éo 


THEN 044256:PJ: 


1120 )) ••••• ( ! 

t.. 

*| X -il- «tZ*. t| jJ. v...* 


740 RETURN 
750 DATAÓ,0,&1 
760 


FF, 1C 
0-,0,8S","FF,3 


770 DATA14,Ai,4,50,2 
780 DATA1,3,3,i i , 9, 

. 0,20, BÓ.., 1, 1, 1, 1,3, ¡7, 
Ó, 30 

790DATA 
éüíjT DATA 
é l O CGttüRít 5 
820 LOCATE 3 
830 LOCATEU 
¿40 END 


75t;T 


30) , 


2 PE1:1MT!# i 


, 1 C , |C , 6 , 
8,38,30, 


170 si H48 
ND.8,:íÍ6 



XB-X+T 
BÓUND 9 


*%+&&** i, 

£ l ¿ ( XB, YB) * Cíh, BA 


ELBE 61O 

i 6: SOUND 10, 1 6: BOLJND ITT , O slSOUND 12 . 


Pt±JO... 


.l. 

1 


15 , BE 
VTtT.. 


E,|1G, 7D,|FF, 18¡¿ O¿ O \ O 


60,70, 


, 88,1,24,52,4,20,14 Ay 74 


- : 1? v “f i* 


3r%l 


30,BE,FF, 


yl , 1 , 1,80, 


8 i O i O, O 
30,4 , 10 
GO,EO,CÓyEOyCO 


7, ¡5, 7 ,|3,13 ,[3,4,8., 8,.18 , O , 0,0 , 0 , 80 |CÜ, 80 


O,80,80, 
40 , CO ;, 80, 


E|0, 80,40 

r 80,4C|, 20 ,} 
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*■ OOÜOOOGOÜOOGOÜOÜOOÜ 
? OGOG OOGü 

? OOüO CRUZADA OGOG 

foéop aooü 

4- GOOOGOOOGÜOOOOOÜOGG 

j 60 J. . ..i. 

¡ 70 
80 
<?<:> 
rio o 
110 

120 COLOR 3,6,10 


'EUGENIO GARRIDO GOMEZ 

!• | 

1986 

•- OOOOOOOOOOOOOÜOOOOO 


, 130. 

140 QPEN"GRP:"AS#1 

150 ; F : 'SET <35, 80) , 6: F'RINT#! , "CRUZADA" 

160 FOR Y=1 tO 1500:NEXT 
170 CLOSE 

Mo COLOR 1, 14 : 1.4. 

190 SCREEN 1 

200 LOCATE 3,lü:PRINT"JOTSTICK O CURSORÍJ/O 

210 x$=inkeyi¡ 

220 1=1+1:IFI>13 THEN 
230 VDP <7;=1. 1 . 


' X #-fjf THEN CT=1:G0T0270 
X*="C"THEN CT=0:GOT0270 


240 IF tiré"J"OR 

250 IF.X$="c"ÜR 

260 GOTO 21 Ó. l_ i 
270 COLOR 15,4,4:SCREEN2,2:GOSUB 61O 
280 HX=116:HY=58:BX=116:BY=55:Tl=150;T2=150: 

=4:D2=5:D3=5:D4=4!. 

290 RUT SPRITE 4, <HX,HY),1,O f“ 

300 RUT SPRITE 0„ <BX,BY),6,1 f~ 

310 RUT SPRITE 5, < 105, TI j , 1, P¡1 


í ] \ 1 j 1 I i j í 1 

—t—4.4 -4 

T3=150:T4=150:P1=5:P2 


320 RUT SPRITE A,..¿li5^T2) 

330 PUT SPRITE 7, <124,T3>,1,P3 


340 PUT SPRITE 8,<133,T4),1,P4 


350 A=STICK (CT) : B=STF<IG <CT) 

360 ¡TF 4=7 THEN IF HX>100 THEN HX-HX-2 
370IF4=3 THEN:IF HX<140 THEN HX=HX+2 
380 IF DI=0ANDA=7ANDBX>100THENBX=BX-2 
390 IF DI=0ANDA=3ANDBX<140THENBX =BX +2 
400 IF B=-1 AND DI=OTHEN DI=1 


1.i.I.í.!. 

; 

j • ¡ I i i 

1 .r.!. 4 ."i.. 

+^-4^4-. 

! i l i ¡ 

—.4-. J- .L~.. 

•I I i . • ) [. 

j | 1 : j 

P3=4:F'4=5: 

í. 1 ..4- 


410 IF DI=1 THEN BY=BY+5 
420 IF BYM50 THEN BY=55: BX=HX: DI 
O K=INT<RND(1)*6) 
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440 IF| KfOTHEN Tl^Tf-2sSWAP P1 ? D1 
450 ÍI-FI KN 1THENT2==T2~2: SWAPP2, D2 f 
460 I F¡ K-2THEN T34T3-4* SWAP P3 ? é3 

470 IfL K-3IHEN T4=T4-2: SWAP : . : . 

480 IFi Ti< 79ÜRT2< 790RT3< 790RT4< 7.9THEN i GOTO.600 

490 IF BX íi04 ANDBX<112 AND BY>T1AND BY<T1+4THENFG-1:GOTO 540 
500 llFj BX > 115 ANDBX< 123 AISID BY >T2AND BY< T2+5THENFG=2 5 GOTO 540 
510 Ií'FI BX>:124ANDBX< 132 AND BY>T3AND Bf<f3+5THENFG==3; GOTO 540 


S20- IFt BX >1 1 33 ANDB X < 141 AND BY >T4AND BY<T4^5TRENFG-4 : GO 
53b.GOTO 290 ! 


540 IFF'G—1 TREN FORN-Tl.TO 150 
GOTO 59O; 


:GOTO 590 

560 TFFG-3 THEN F0RN^lt3T0 150 


ÍN - ©( 

V 57( 

J I FFG : 

T 

HEN FORN 

as-lj 

41 

0 

15 

iO 

^ :G0T0590 





L 

V 580 ( 

30T0 

290 

.i 








590 ) 

DI? 

-OI 

s BX4 

HX! 

s BY== 

55 

: Q 

¡OTO 1 

2 P 

»0 

6 U< 

? ( 

DPI 

EN 

“ GRP 

i"ii! 

AS# 1 

YFj 

SE 

¡T | 

(U 

S 3 

¡ü'f 

5 i 

JL I ¡ 

:> o i 

i 

J s 
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.Y 

) 15 ,: 

) , 10 , 

.^. 1 

• 7 :* 


.|.] 



i ■ 0 j 

I 1 1 I 


T—f 


Y< 0 iTHEN 


>160 AIMD YO 209THENY=160 


* X E ^ R X' :i,,v 

X 


-16 THEN EX^255 s EIY^RND (I) *I 6Cr 


-60: HY 
LIME (HX+Í4 
GOTO 380 


<i(Y+3~HY) VIO) +HY 
H Y+8) >-■ í IX r ÍY+9 ) , 10 


590 SPRITE íOFF 


600 . IF 

610 í F 

O 73Í 
620 LINE 


X + í 6 >RX 
H X + i 6 >R X 


AND! X< RX +16 THEN DEEPVI =rVI~ 1: R1 Y=2o c 
AND HXKRX+16 AND HY+f2>RÍY AND HY+14 


¡RX~0:GOTO 
CR1Y+IL 6 


660 


THEN PT=Prr+1ELSE ¡GOT 


<56, 179) -- (100, 190) , 1, BF 


*“ *'• . I"*". * 1 " ■ 

640 DEEP 
650 SO 
660 ÍF 


JL60ÍA.29) ? 1: ER1 NT # 1, P 7 


0 | 730 

VICO THEN GOTO 760 


670 

680 


LINE 1 (210;, 179) -<250>190) „ lí, BF 


H-Hb i : PRINT#1, VI 




~i_ 


690 PUTSPRITE 

700.¿ÜTSPRíTE.L 

" i F(pR 


CRX >R1Y) 


lÜRl. 


A*- 


TO 


6, ( X , Y) 
"SPR I TÍ ^ 


i 6 H 6: N 


<RX 


1 ? i j!.i. : j .i_i I. 

B*=CHR*(INT(RND(1)*2231+32) 


A*:=A*+B* | SPR JIÉ$ (6|)...=A*}:. PUT 


aa 


TtJRN! { 

~AFF,FF ? FF ? d5 ? 
TAFFl 55, ab jr 55, ab 
COLOR 1,14 
770 SOPEEN 1 | 


6 , 6 


ü dj5 , a a 

, ■üi-toí-, ab 


, d5, aa, d5, aa, d5, aa, FF, FF, FF', Fr*, FF 
55, ab , 55, ab, F'F, FF, FF: GOTO. 750 j 


780 


LOCATE: 3;4:PRINT' 
790 LOCATE 2, 4: F'RINl 
800 X*=INKEY* 

B 1 Ó. 


PUNTOS FIANSIDQ—' 1 ; F'T 


'OTRA PARTIDA SIO 


CS/NI" 


320 VDP <7) 41.1 
830 IF XÍ=fs Í 'OR 
840 ÍF X*="nT0fí 
850 GOTO 800 


THEN CLEAR:GOTO10 
THEN END 


4. 1 


i— 



• *1 

! r "" 

\ - 

1 * 

“5 • 


. i 


... 4 

i.1. 





7986 - AMíG0S DEt MS7*-13 
































































































































































































































































































































































































































































































































































































































































































































































































































































































r 

















































. 














i - 








. 



.) 






















¡ 
































I 






1C 

)6C 

> I 

)A" 

"=S 

¿PEEK( 

L4: 

53< 

É>+=E+j\l* 

8) 






1 




107C 

ri 

: 'SE 

•T¡ 

:2£ 

3+(1*1 

1)+REC 

, i 

75 

>, 

i s 

PE 

2 

T : 

Si 

, D 



i UÜU J.h i 1- 

.. TÍ- . dVv ..a ..-.Caí1"!!.... i. ... 

:: 0 

i í Mfc.Il 

M 

1 I 

i \ 

1U 



*“7 cr 









X K 

> 7 

Loe 

) i 

’OC 

ti-;.,.: 

-I 

DI 

VT- 

tr\xf x 

L.i ó twi 

1 ) - 
fcj\j 

fTArJU 

. LÍ)—' 

r4 

0 

fj 

i 

. ! 

D*Ti 

fx uX2 r 

rv x n i 




d 

ii¿ 

i.3 

¡jeJ 

DI 

Lt: 

>10 . (i 

=»1MJ 

3 j 

DAJjd 

10 

Q . | 

Th:l 

EN 

L 

D~ :: 

.1 


: . 



i 1 

¡2C 

) 3 

:f ! 

DAT: 

> 1 00 

THE! 

M Lpj 




: .| . 

.i 





r 

[1 1 


) .F 

Se d 

>Fj 

<EC+ (Lí 

5ie> 




1 

; .i 




j 



4 150 41 NE Í5 r 40)i (250 * pKO ■, 

4Í.6Ó.ES EX ti i ,4.2 L* 7: PEI NT# 1, i" QUIEE 
























































































































































































































250 SGREEnI 2¡* 0 




4a(~) f 

id£:m í 

«no raí 

. li j 

r n| 

2« s 

ni it di it 

A 

o t 







i | j 


..]. Ji .j r . 

.1.i.i. 

i j.i _ 

.i 

JL- OV 

Í7Ó j 

r i ^ 

r.4 




LJf 

A.;■ 




ri 

O 1: 





’ .j 


7 ' : \ 



1 i i 

—i—... 

1 Jn .!.. u . r .. r< 

28Ó 1 

lif 

ME 

(Ti 

?o 

, 0 

)b 

<2! 

56 : 

qi| 

92 

>, 

^ i 

BF 




1 \ 


I 1 i 



1 : ? 

.|. 1 .!. 

l i i 

1 290 [ 

LIÍ 

ME 

d< 

901 

rd 

B0 

)-z; 

(25 6 

7% 

92 

> ^ 

9, 

BF 

i 



.: .L .i.| .|. .i 


.| .|. .. 

.i.1.• 

1 j 1 


—300 f 

*SET 

en 

96' 

ni 

32 

).,1 

9 2 

PR 

IN 

•T # 

:i,1 

•„ c 

;ol 

¡OR 


ni t 

1 . j 1 | i • I 


r j • i 


■ | ! | 

.i...i.1 


310 FOR 


b^GHR4*T A 

330 ÉpÉITE^<Ó)...-Q 


340 x=4: 


P-ST 

i f r o 

^F+Ü 


ÍCK |(JT) 
1 THEN 
2"'THE'N 


400 

410 


IF 


IF 


D+ 


w 4 

•20 IF 

D- 

D~ 

-7 

"8 


•30 ÍF 

¿ 

■40 IF 

i X-: 

>V 

i 

,50.j p 

. x< 

•0 

^ i 

•6Ó IF 

! Y< 

0 

■¡7 

70 ÍF 

y: 

■1< 


180 


HfcÍPGf7 


Y=?5 


i RE AO Af 

^•••NE^Tr 

&.L.I.I 


=tr 


T044 

XTÍT 


THEN k^kn-ll : GOTO; 44 Of 
TÍlENs-ÍX-|x4l- s GOTO 
THEN V=Y+|l z GOTO 440 
:: 6 THEN Y~ Y -+1 ¡¡ X=X- 1 s GOTO 


THEN 


THEN 


-X :: !l s GO 

~Y~~I: X = 

X=it9p 

S-Ó.I .. 


XHEÁL 


ONÍ 


170 FfBETÍX, Y) pf? 
mé PUTBPRiTEO ,, 

4&¿y4m- 


Xí|™itc..:} 


GE. 

OR 


540 W X^'M THEN 


E7«E bi NE-<-237i IBS 


—38c. m 


;4.THE. 


]i p y f > | a 

FÍR i NT# 1 

GOTO 
PATA 
-YXT25: 
FÍSET 
X$; 


36 C I|F 


I|F 


RSET 

GOTO 


X*= 


720.. 

730 

740 


RA" IN 

.j|N.rj0.2. 

y I jJ I 


™CHF<$(1 


THEN 


"16 

44 RAp 


"THEN 


197,YT 

O 


s YX4' 

GOTO..6 

IF |TI 


YIT =4YTÍ-+* l]O s P$ 


GOTO 

cían- 

YíTHYT 

dOTO 

RAhi— 


;p* 


IN*. 


IF FAN40 THE 


4! 


YIT-YT 

GÜTÍO 

REb- 


+ 1:0 ilPfy- 

hd¡u 


JLjXfiE < 
sal| 
pÍaint 


(X-3, Yj~ 


Y-192 
IF BTRIG(JT): 

X+3fYf4),1,Ó 


xi^i.cTXHEN. 

xáf:..l , pj!THE.k 


O 

HOTO 


TO 440; 
X~1sGOTO 


440 


440 


440 


-l! THEN Ipsfet 


jTIsGOTO i 500 

H .j. i .i"" i. ? . 


TI =“ 14 


TI 


30 Sü 3 
GOpU 


54 „ 


PRINT#1 


N 


CAN 


TTlfl ií CiHi 
1Iy1:01-1 


EUBtr 

191 


IN—i:LINE 


HEN 


réP 


6 16 3 16 


0 I RGUEO" 


SAL4SAL-+-1 


GOTO 70 

5 s"PR I NT# i ij "f "t'Y 


(2 


J63p 

azb 


P¡E>ET''('Í23|7'..jl S[2 V > ¡i 9 


.XNE 

SOLYT)h( 


25 


30VYTT 

Y 71+8) 


BF 


.t~" 

R^^ TCOLT 5 | F |.xilil>i9b 


THÉNt RA= I9Í0HX 


THEN JI41.4 
O 


I N~ 


IFÓAN>6.283THEN CAN 


FAIvHh Í N^O Í 


IF FAN 


FAINI^é 
RIE 4 s Í N 


28¿ ! i ].|' 


=0 : 


: IF REti=C THEN RELf í 
4a¿E--(j-X^Y~^"y~HA-y TI 
1?Q»0) -1.256, lé.0Í.»4,BF 
s RETURN 



i UW'' 


- - 

=6 

\m u~ 

83 


-6 

• 2 








),TI:RETURN 


1986 ■ AMIGOS DEL MSX ■ 17 


. 1 


.. r 


““ p *—4 

. 

. i 

. 

i 


. 





."" 








| | 

i - 4 « 

--- 

i l 

?. j 


i 



. 1 

. 


\ j 

,.1 7 

-.} 










































































































































































































































































I. 


j » j.j 

10 COLOR 9,5,11 


-~ ~, 

20 SCREEN 3 


i"3f OPEN"GRP: "AS #1. 


40 PRESET (40,80.) 
50 !• RIN'I #1 , "CONDO 


R ,J - i 


60.FOR 1 = 1 TO 200Í'):NE!XT 

70 GLOSÉ 


"T.f 


80 COLOR i,14 
90 SCREEN 1 i KEY OFF 
100 LOCATE 5,10 
+110 íPEÍNT“MANDO O TECLADO M!/ 
120 A$=INKEY$.4—i.-F 


. i |_ 


T.r 


r 


130 1F má " M ” OR . AH>=." mí' THELI V= 
140 IF A$="T"0R A$ = " t " TRIEN V= 
150 GOTO 120 
160 DIN A( 40 ) 


00 TO 
GOTO 


160 
160 


1/0 COLOR 15,4,7“ 


180 SCREEN 2,2 
190 OPEN"GRP:"AS #1 
200 .DATA 11OOÓOOO | 

21 O DATA 01111000 
220 DATA Í1OOOOOO 
230 REM 

.iS^OiDATA 1 TI 00000 

250 DATA 0111ÓO00; 

.,260 .DATA 0.011 1.000 

270 DATA 001011 1.1 1 
280 DATA 00 lililí 
290 DATA 00000111 




...i... 








I. - 




i.f 


13C>0 [DATA doCfOOOOü 

' (" ) ( ) () C)() v)()C)T) 

3 2 O D Al T A CÍ O 0-0 ÓO Ó O 
(530 DATA 00000000 
34C) DATA 00000000 
350 DATA 00000000 
360 DATA 00000000 
370 ]DATA OOQOOOOO 

380.BATA 000OOO"O ; 

390 DATA 00000000 
400 REM : MI 




41 

42 

43 


18 




0 DATA lili 1000 I 
O DATA 01101100 


4-4- 




1 

! “ i.¡" 


4~—L 


— 


4.; 


O DATA 01111111 


TT 




AMIGOS DEL MSX ■ 1986 




































































































































































..j. 


i. 

.1 

...i.. \ 


—t 
.... 1 

'■—i; 

• .f 

| 

TI 

.i’ 

.i 


^4 

.T 


Ti 

.,J.i 




.i 


| 



.1 

i 








| 

i 

.[ 




i 


| 






| 

i 



. .[. 




.. | .... | 



.1 

i 


j 

I 




i 









i 




I 


j 


i 


... 

.:1 

| 

.i 



1 












| 


¡ 


i 







i 




i 




i 

1 







; 



.j 









I 



..i 

i 




..f 


.i 










' .; 

i 



.| 




'.| 




i 




| 


1 


| 





















1 

. 


¡ 

[ 

i 

.i 
























! 

. :. 


i 

.j 

i 




.i 



















.1 

.i 



.i 

; 

.... ... 



.4 




















i 



— 





i 


s 


















! 


| 

| 


i 


i 


. <. 












.¡ 



! 





.i 


















I 

.| 

i 


n 


.j 


.). 


.1 




1 






.~i 












| 




i 




.f 

\¡nuisn] 


.f 


.1 

4 




.... i 











.; 


i 


. 


í 



.......... 

: 

j 


.i 

; 

.. 


.1 














i 

i 


1 



.i 

.J 


.i 













' ..í 

... i 


..‘t 

.. ¡ 



.i 

; 

| 

...1 











i 


i 



i 

f 







: 


1 




. 






.i 


.j 



.| 

. ...¡ 


.1 

.j 

i 

. \ 


1 






. 




i 


.i 


.! 


.1 



i 

i 




j 

¡ 




; 




.1 






i 

i 


. 


. 



1 

.[ 










1 

.4 







¡ 

1 


.t 

■ 

... 

i 

.H 


■.i 


.| 



i 

! 







: 




. 

. 



..j 

-.j 

j 

.j 

.| 

.j 


j 

. \ 

.¡ 

.| 

. i 

r.j 

r. 

¡ 

.Í 

.i 

1 " 


.i 

i 

i 

.| 



1 

.i 

.i 

i 

.i 



~N | 







i 

1 

.| 




H 

i i 


i 



i 


i i 

.- 


1 
















i 



. 

L.] 






1 .1 






















f. ; 


....j 


„„.| 








.| 















t. 

1 i 
i .i 





r.- 

L.mVj 




. ; 

! 





] 






• i 






.. 














L.j 


...| 

u. 










T’.i 

I ■ 













..j 



..i 

1.. 

r. 

i 

i 



! 







I 

1 




f..i 


i. 




j. 

. 



















f. 














i. 


s. 























¡.. 



L.1.. 

. . 


\ 

. 




















L. 


L.i. 






i. 
















j 







L.. 





















1 f 




[_ 












i 






i 

L.i. 







L. 




1 




i 

i 




i.. 

. 

i 






r T 1 

i...... „ 






1.. 




\ . 




¡. 

r 



i. 





i 


í ! 1 


i_ i .„„ 











r~ 

j 

i 




















1. 

¡ 


























1 

:.. 




1 


; . 


j. 


'•. 


|.. 


r. 












i 

i 




f*.~ 

1 



i— 



















; 

. . 





t.~ 

i 

1.. 














! i 







i 




L. 

i 

L. 




i 










rr 



i 




|.. 






i 










: 

. 


L..L.. 



r. 





L. 




j 




















i. 

L . 



1". 

!. 













) | 

i.. 











j“ 













F "T" 

| | 








f.». 

- 

"i. 

4. 






i. 







f... 

L_ 


1."'"i.. 









I 

!.. 


i . 










j. 

i 



! 

¡ 



] '. 







(. 





i""'""' 

1 







1 . 



|s 




] 























.1.. 

I 






.. 




i 
















i,. 



4~v. 

T. 



i. . 




|. 















1 

| 


1 

. 







i 

] 











; 


I 


t .~ 



1 




\ 





\ 




: 




i i .. 




1 

1 









l 

i 

4". 




j. 









I_1 




j 

1 

1. 


i 




! 






4.. 







1 i 



1986 

|.* 

kJ 

XMIGC 

is ¡ 

DEL A 

S> 

UJ 

19 

I. 




i 


f r 



4“ 

| 















I 




I 

■ 



i 


1 



r 

i 








1" 

l 

1 

\ 


¡ 

1 


1 











































































































































































































































































































































[1070 GV 
i 080 Y2 

Lm9ii.li 


NE 


1 100.|F 

1 1 10 X 1 

I i 

II 


2 Ó X 2 : 
30 ¡1JE 


ril#0 pa 


14 15C 


i 1 1 7< 


) YI 


1160.EQR 


) CI 


1180 YJ 


4 92fCI 


11190 IF 
; 1200 í F 
1220 I 


;1210IF 

Ü 


123C 


PGINT 
> PSET(XI 


124C 


1 25C 


1260ÍF 


.) Ff'R NT# 1 , 
) 


IF 


4270-« 


4280. 


láse 


130 C 
1310 

lise 

1§4( 


i: 


y/i 


t; 


50 


> 6 Í 


: xjmx4±x/..io 

.tilEÍ 


ÜNTttl, j'PUNTUAC 

KNü 


1380 


9X 


T46* 


1.4.2.( 

1431 
I 44 1 
1 45c 


0 
í F 

Ha 




> PR 


) ÍF 

).ItF 




1470tP 
1480.ÍF. 


1.490 IF 


1500 IF 


1510 IF 
1520ÍF 


1530IF 
1540IF 

«¿rcr 


1550.XE. 


( l O C: 
192 
L 


X 1 
X2s 


>*A (1)4/A 
-GV 
XUY 


25c; 


Y 1 


X2+X/10 


TTT" 


Nftfüt] 

XJ 


150 í 
I-I 


>.THE.N 


■Y 


191) v: 


T.Q 


( 10Ó*A( 


I ) ) /A 


ROI NT (X 
Flb I lílT ( X 


(XI 


1-9, 

- 6 » 


0 


-y- 

XUE 

I 


•E 


XX — 1 

xx-i 


THE 


THE 


Xa:¥l-YJ 


Tj.L 


FfSjT 5(75,13) 
PR 

IF 

POR. 

N 


1 


.1-1 


) DEFINI 


ST 


TRENGOSUB 


. m 

14= 1 


N 


ICK(V) 
FÍ-t.TH 


N' u 


NI 


f-r-m* 
1 .E 8 £XÍN ? N 


I NT#1, 


P< N 


V 


11 

ü 


AND 


pointKn 


DN 1 THE 
D-2 TÍiE 
D -8 TÍHE 


D-5; THE 


D-4| THE 


ü- 6 ! TREN B= 
D-7¡ THE 
D-3ÍTHE 


AMD 


1-XX2,..Y, 


11 1 


Y 1-7 
YT- 


6, 
l l 
i! 


7) -2 


YI-7)-2 AND 

1270..i.1...... 


O) 


XI = 
XI- 


800 


? Y:, X 


:n[.l 

H“|l. 


XI 

XI 


N 


4 


-Sis XlX-Os Y B-MI+3"" 
+•6 s XXXos Y1-YIH13 


10 


EX 


N NT; PT | 

16|30| | "i— 1 

1 . 1 . 


, K,P 


I NEC 


4 í 


P+ 
•4, N 


NB-B-2 


M.Be 


B-B 
B—B+ 


6 >N 
1+4) 


B-- 


N B-B+ 


B±2: 


N F'—P 


N KM:. 


J3ÍIB 


1 : 


IG(V 


11 


Al\ 

AN 


POINTC 

ROINT( 


XI 




+6,91 -7)! -4 THEN X I - X 146 : YT~YTf 8 ? XX-1 ; GOTO 


ROINT(XI—ó,* 1474*4 THEN XI=XI-6s YÍ-YI-8:XX= 


4. 


,B',H,R 
175, 2 ) - (212, 1 C>) , 13, BF: 


AND Nl'>B--6 THEN N=-l: GOSUB 2050 


PSET (172, 3) i, 13s PRINT#1, PT: PZ =0 




< 


0-4 THEIvj NT* 1 


:GOSUB 1580 
;GOSUB 1580 
:GOSUB 1580 
GOSUB 1580 
GOSUB 15E 
GOSUB 15E 
GOSUB USE 


)=-l THE 


80 


80 

80 


N ÍKB= 1 


J 


J 


1560 IF 


::6N0 AND 


SITR 


IG(V)N-l 


THEN KB-2 


IF 


1570 
1580ON 
1590 IF 

C ")C").*|V. j* 3 *.... 

xilixJF 

1620 IF 


7-0 

RB 


■K6- 


AND 

GGBU 

1.(Tí 


K7.= 


K8= 



T BP 


Cll^ 


STRIG(V) 


THE 


N KB-3 


HEt 


1950, 

TPÜ 


00 

SI 


IB [19007 

n h-h+ 

FIT"" s 

1 THEN; H2NH2 


1 TH 


.±.2.5.iELi: 

EN H3NH3+2: PU 


PRITÉ6,(Ff+Sl 
l 4R j TK 7 ;j 
SPRÍTESl 
SPRITE9, 


«t? 


RITE 


U (P+l.B) .114,1 


(P+7,H2 

(P+2,H3 


,1 :GOSU 

...y... 

, 1,1s po 


IB 


1900 


¡ios 


UB2000 
5UB 2070 


O THENPUT SPRÍTE3,<R+Í8 ,Bj,Í4>3 


K=0 TH 
pjOTWTlfF 
2050 


EN RETUR 
+23,B+6) 


N 


ÓR 


PO 


INT (P4rt , B+10) =2 pR{ FOT 


_ 


20 - AMIGOS DEL MSX ■ 1986 


■1. 


NT(P±9,B+15)-2ANDP>O^THE 


........ 


.i.|. 

2 




_ 











































































































































































































































































w 











' 1 






























| 














; 








j 
























] 
























! 



1 j 























1 



j 1 





1 

í>7< 

I) 

IF 

tí 

M= 

0 

GQTÜ 

1720 | 








1 








1 í 

5'8i 

:>. 

□N 

K 

K 

ñ 

GOSUB 

TB7C 









/ ¡2* 

■Cj 


.i..] 

1 





i 

i 

b9< 

7ñ 

j. 

IF 

T £T 


1 

A 

i 

¡ vi n r 

J..QMÓ ÁMT 

ru 1 

Ki T - 

br 

R1 

1 t 

il 

- 1 j| 

Aiiin 

K K ? 

\w 

1 C 1 A / 

3 i 

slB| 

3 A 

1 .J 

T'HENBEEF 

: NT=1: .-=l:z : ; _ = - " 


— .j... 

1 Í 

.wfwvv 

ir 

. T\ 

xíN 

ri 

‘rN*sp~r'\ 




















1 

711 

0 

IF 

I K 

= 

1 

AND 

RÍ 

2 ci 

15 TF 

lEh 

4 F 

F*U" 

r i 

3PRI ‘ 

FE 

ll 

, <] 

500, 

20: 

1) 

, 1,1: K 

3=0:KM=0 


i 

7 2 i 

0 

IF 

| p) 

+2 

6> 

255 

THEIn 

i ci- 

=T: 

Goror: 

7Z< 

í) í 

EU 

pE¡ 

11 

B1 1 

0 1 






i 

73¡ 

c> 

RUT 

SFKi 

rB3, 


:75 

572loe 

)) 







1.f 






: i \ 



.r 

i 

j% 

7KÍ 

fiy—* 

r mm \ 

TF 

F> 

lo „ 1 

•••245 

PUT 

SFRI 

TriEN 

CCSD T TE 

17 

■n i 

*5tír T 
C25C 
) ? 20( 


dE 

f) ( 

htl 

311 








1 


[.1 | j 



í . i 

1 

/ sJ 

76 

0 

PUT i 

TE1 , 

<i 

j 

oc 

J !• 4 
)) . 


t 


H 












1 

770 

FU 

|t 

SFRI 

TES, 

1 (tí 

M 

üOO) 

















1 

78 

0 

FU 

IT 

SF 

ÍRI 

TE?, 

: ( i 

0, 

2Ó0) 














.T.T : í 

1 1 ; i . 1 I f *-*3 1 ; f 


1 

79 

0 

FU 

¡f 

SFRI 

TES 3 

i (2 

-0 ? 

1 200 








... 
1 . 1 






.n.!. tn ■ 


lelo IF B< 20 THEN 


:; 20 


LIIME 
LMB 
IF l\ 
IF N! 
[ 860 GüTC 

L87Í0.I F K 

1800-BÉEF 
l 890 


“4 n UIÍ3Í^m+6 


CMJd4,^ 

1 THEN N=250:NI=I7: 
1THENNJ -27^• 


1380 
T THEN 


F ? +2 4 :Tp T f B *+*3 

RETURN 


1500 
1910 

1920 


.J.EK3= 

BEEP: 


THEN 

=1+3:H 


ROINT (P+24..H+ 


:F3|Ü"’P 

rNtffi' 

pzN 


1890 


1.325 


-OINT(P+24, H+3) 

MTE 6i (200, 200 ) 


N Í -2) j, 4|BF 


•HA 


JBF 


NK= 


NTfO 
i: NU—O 


i 

. 


n — 










-^•O 

— X, : 

4 C 

THÉI 

M 


=0:PUT SPRITE 
4T(P+24,H+4) W : 
l HrKB=feitelP|: LINE (P+16 


6 , (200,200) ,11,1 :|KB=0: H=200 
5 10 R FOI NT (P+20, 

5 H-3)- (0+30,8+1Q) ¿ 


1 


840 

950 


RELXUF 
IF K¿ 



1960 BEEP 


HI 
POÍNf 


THEN1970 
B + í O:Kó—I 


,H1+: 

, H I T- 


(P+20 
OINT(P'|f 
SPRITÉ 7,(20,200), 
HI4200 


1990 

o do 
o i o 
°020 


RETURN 


IF K7=fi THEN 2020 
H2=B+Í0:K7=i 
POINf(P+97H2+3) 



PUT SPRITE 8 , iio ] 200 ) ¡i 1, 1¡ 
P 2 = 1 UH 2 = 20 Q 
040 RETURN 
ioúo 


"2060"' 

2070 
2080 
2080 
2100 


PLIAY 

FÜR 


NEXT 

PÜT SRRITÉ2Í(250,200) 


: 'l 

TC 

n 

.5" 

i y-, , 

STEP : 

-> 

_ 

: cf 

/.c 

f+1 

>4-1 

. 3 , 

A 

: bh 

LE|4 

ro j 

L.CT >1 

1 3 -f 3 

[ . T . 

? . 

ID 

* \ 1 

f i 

. H 

i 

\ 


: 3 1 3 



2120 FÜR 141 
SO COLOR 


110 PUT SPRITE3J(275,200) 
TO 800: lilÉXT 


14 


■qi90 

2200 

2210 


I» , , . 

SCREENO :WIDTH 38s KEY 

LOCATE.3, 5: PRINT"LO 

LOCATE 3, 10 ¡ F'R I NT "TU 
LOCífTlá 3, ÍS^PRINT 

¡Áí 

OR A*="s M THEN 
ORA$="n , ‘THÉN 


2220 CLS ; 


INKEYS 

IlF.A*=*"S" 

IF A$="N" 
GOTO 2180 


2 THEN K¿>=0: T'Ufr 


1Sí OR F'OINT (P+20 


SPRITE 
,HH-4) = 


< 


1,1: KB=0: BEEP : L.INE (P-H12, H1H3) 


H+2)=15 THEN K5= 
4iBF:PT=PT+1O 


20 , 200 ),; 1 , 

ORFOINT(P+l 


(P+26,Hl+10),4. 


2TTHEN 1 

;C7=0: PUT 

SPRITE 

8, 

(3 

0 

15 < 

3R+P1 

D I NT ( P+9 

,H 

2+4) 

r± 

er 

vJ 

OR 

H 

-» 1 = * 

vB=0 

:BEEP:LI 

NE 

kP+2 

3 H 

% 

3) 

i- 


OFF 


T190M10 


= i 


F* O I N T (F *+6 ,H2+2) 
(R+15,H2+10), 


1 V15L1D“¡ 


KB=0sH1=200 


6 ,Ht+2) -15 


H 

4,, BF 


BF 


THEN 
: PT=P 


200 r 

THEN K7 

PT=PT+1 


O 




SIENTOTEHAN DERRIBADO" 
PUNTUACION HA SIDO = "¡¡PT 
QUIERES JUGAR OTRA VEZ S/N" 


CLEAR:GOTO 
©OTO 2220 


SO 


1986 ■ AMIGOS DEL MSX - ti 





















































































































































































































































































































































TEÑI 


10.REM ***DI 

20 COLOR, i, 14 
>0 SCpEEN ' 2|2 


40 OREN' 

1 S'ó.PSET 

.60 DRAW' 
i'?4.RAIN' 


ao.j7SE 1 v,.íx^jivAí¡í4'V^' 


90 DRAW 


I i00 PAINT(81,9 


1 í O i PSE 


12: 0 ¡ m m" SóDüFl D i F i D i F i 


.Ht 

ti ÍO pPA I N T < 1A-7 li 9 


.2.140....; PSE 


FDR 

REM 


2é0. 

2 jo. 

280|FÓR 


GRP . 

40 , jo 

R306bE11D2: 
•(•42Í'92->- 


R25D6Li 


(150,90 


[150 DRAW"R6D30L6U3Q 
i 160 PAINT(152, 


170 F’SET (167,90) ,6 
1801 DRAW "R25D7L 
190 iPAI NT ti 69,9 
¡ 2ÓO | LI NE ( 20 i, 175 


:L8U2pLTlU . 


7D6R17D.6 

4 

13 


OOP 10i 


Í 2 .io.JE:.^^ 


Jfl I 
*** 


220 
230 
Wtf 

24o 4 COLOR 1 4 14,2 


TO 1500 s NEX 


COMIENZO DE 


§0+ . 130SUB 590 


üp ENr p * 

SfcREEN.2, 


LAS# ti. 


290 A$ : ”A$-FCHR$ (O) b NEXÍT 
5FK 


300 

310 


FOR 


OÍBi^B^+CNR#< 


330.JSÉR ITÉMi) 


35Üjin^8?TfRf 

3¿O;j5i 2¿ rK#94 
370 ; L#2401i M#94 
380 FOT 
4390 RUT 
400 REM 
410 
420 


REM 


TEf 

Ir" 1 


rüT= 

TO 


16:READ 
0 ) 4: N E XT 
3$;. 


:6s YfO! 


SPRITE 

*** DIB 

LINE(I28,Ó) 


17D6RÍ17 


D.&LZ 


F 1 

ülHlíüítMt 


DQF ID 1F1D1FÍD0F1D ¿ FIDÍFÍ DOF i Ü i 9R6I)3 pLSüpH 1 ! Ü¡1 Hi IjOH 


9tÍ6d3<rH . 


19D5R i 9D18L25U7R 19U5L191) 18 ,r 


jj ; 

JUEGO: 


'Luis banql)inq AR LAS 




.i..7. 

jitsL 


POSICI 


INICIALES DE LAS RAQUETAS V 

.i.i.t.I.:. r 


.L.1. j 

PELOTA I 


READ Q 


l, <J,Kr) , 
j, (L ^ M) j 4* j- 1 

UJO LINEA JDIVISORIA i *** 


(128,19 
*** MOVIMIENTO 


22 - AMIGOS DEL MSX - 1986 


2) ,ti ,BF 
Y REBOTE 


S DE LA PELOTA *** 


O A A O 0:0 





















































































































































i #30 XIMX-Xl) i MI J I 

1 440 Fí# (Y+Yl) 1 1 t i ' r ! t 

1 450 X=XO Y=YI f j i f I f f 

; 460 PUTSPRITE O, (X, Y);, 1,¡0 

.Qfr -W< ja t ¡ T H EN 


!.480.¡LEÍ. YI <2.THEN. YL1—Y1 s B 

490 SPRITE ON:ON SPRITE 
500 REM *** MARCADOR *#* 
510 IF X >255 THEN Xl=-4 
s PUT SPRITE O, (X, 208) ,fl, 
i 520 \ iF |«QTHEN PLAY"05 

4.i,OiG0T0550 

’ .530.SOTO.820 


540 A=A+1:PSET<3 
GRA J**W*fl PSET 


V=í TO3.400,: NEX 

.550.BHB*¡l:PSETk3 

ZUL ***#**":PSET 
EGRA-";A:FQR V=T 


570 SCREEN 1: 
580 GOTO 106C 


.y l =.-V4-: BEEP^ 

EEP. 1 . 

GQSUB 1140 


Y1=R:X=1 
O : GOTO54Ó 
AB0Ó4DD 


0 , 50 

) ,115 

(50 

„ 90) 

T Vs 

IF A 

0,50 

) ,115 

C 50 jí [ 

9dh 

T01400: 


0,16 


SPRINT#! 


: t THEN 
:PRINT #1 
15:RRINT#1 •*¡Né» 


NEXT. .0: I 


PRINT 

PRINT 


590 SCREEN i':KEY OFF 
600 REM **##DATOS PRELIMINARES 

6 CLS: BEEP!: LOCATE 1,10: LINEINPUT "NOMBRE DEL JUGADOR: Y; Q$: N 


8 THEN "6 


>25 THEN 


6zo ..QLS.:¿EEElLQjcaii&. 

í> 8 p V*=INKEY* 1 


s90.ÍFL..yfed"Jj".¡PR 

7 0p IF vfe= ! "c," OR 
7 10.GOTO; 680.í" 


V$ 


L 11 11 

Ftí" 


780 


45 C 
.25 


wv- POR 

"■^90.fo ti Mirro 

••1300.re^ürn! 

4— 84'9—RE-N — . 44QÍM4 


840 

~35ü 


zdpmm io 5 ¡6 s- pr11\ 

PR INT"JC 
ERINTllTL 


lOBATE 

-OP.a1ie|, 

-QCArr Ej 3j, i 

.□CATE 3 ,1 
= i.frü 


6s 


PR 

PR 


INT'IP^ 

ínt 1 m 

O: NEXT) G 
PR IN 


3T ictíiqi) 

=7 THEN 


MTiErR TG (AQUETA^ ■ 


IF D 

.rn. di 


=8 



THEN 

.tIreJñt 

RETÍ 

tIhén 

.TNSN. 

T¡HE]N. 

TÍHÉN 


-4 

-4 

04 


J 
J 
Jh- 
J44 


K+4 


T¡ 




¿O 


340 IF R< 4 OR R> 

¿.t.#50 CLS: BEEP,: LOCATE O, 10: LINE INPUT “A 

-f.*: T=VAL <T*).j ■ 1 

4-.#60.t.E.!...T.k =0.¡ORI.T 




26:Y=ó:ÉLAY"05ABD04DD 
(25 


LINE(O 


,15:PRINT#i,Q$" 
GOTO 56C 


****** PUNTO PARA LA 


>.ELSE CLS:GOTO. 

, ****** PUNTO PARA LA 
AZUL=";B:PSET(5 


F • B=T THEN.GOTO 


620 CLS:BEEP:LOCATE O,7:PRINT"****EL IJA 
| > UT"DE! 4 Ai 8 ¡: ¡";R* 

•30 R=VAL (RUO 


650 


THEN.(4.1: 

THEN CT : 


IlilZA JOYÓT 


O) 


NEGRA- 


"HAS GANADO ";Q$",RAQUE 
HAS GANADO ";N*",RAQUE 


LINE (O,O 


192),15 


BF:RUT 


A:PRINT 


# 1 , " 

340 r 


NIVEL DE JUEGO 


CUANTOS 


.JQYSTICK 0 C U R S O R* C J / C3" 


1.: GOTO 72# 
O:GOTO 720 


i 

.r 


BjYSprf 

TQ* f 

EGAS A LA f 'liQUIEBDA! 1 " 

RAQUETA ES LA.NEGRA."j... 

iR 4 MOVER IÍAj RAQUETA i' 


BEEP:NEX 


k-4 


K+4 


=J *4 f 



KÍ. 2 ,.Í,. 


i. 


K 


J~4 ! __j 

LA’RAQUETA . ***I 


) - (255, 1Í92 , - 5 


SPRITE O, (X, 


RAQUE - - 


;N¡$") AZUL=" ;B: r : 


RAQUETA 


>, 100) ;r l5: PRINT# 1 , Q$ " 


570.ELSE:CLS:GOTO 340 


TANEGRA":GOTO 1060 
TA AZUL"’ .i.!.! 


*="MSX~BORG" 
*#**": LOCATE.0j,,9¡.; LINE 


IN 


PUNTOS SERA, EL FIN DEL MACH ?“;T 


CK O CURSOR 


.i 


__ 4 — 


1989 - AWGGS QEs. USX - 23 







































































































































































































_i 

j í 1 

















J 









f 

i 





. 




H 


. 



i 







970 

IF 

: . Í 

c i 1 

0 THEN 




[980 ¡ 

goñ 

IF 

T P 

7 .i 

;•.\ 

n ; 

7 . 1 . A 

¡•OÍ AND] 

• L AKin : 

..: 


2 

7 7v : 

! i i 

ht4od 

ir 

.I 

i 

LpJ 

I '! 

XI 

;• A 


] 

.1. 


i O to. 
1020 
1030 
1040 


ÍF ; X+Li-4 
Í E ! X 4 
IF | X > 110 


i OSO 

mti 

hj>Yf 

i->134 
AND I L*£248 
ANDÍ L 
AND L 


TREN M-h+R 
ÍFHENl ■MkMh'Rí 




ÁND 

AND 


i 


J< l o© THEN 
YkM 


PUT SPRITE 
i 050 GOTO 430: 


AND Y>M-ísG TREN 

:!243 AND Y >tí AND.YKM+60 THEN 

:: 236 AND Jl> 100 THEN L=L+4 


ii=L+4 

U=lI+4 


<L,M> 


, 41, i 


T. 


1060 LÍOCATE 0, 20: PRINT"QUIERES JUGAR OTRA VEZ S/N 
1070 U*=INKEY$ 

U#=" nf‘ -THEN GOTO 1120 
fS ".OR L)ifc=!' s" T HEN CLEARi GOTO 230 





• ■ . 

1 1 









| 





1080IF U$ 

u4s > aJLE.|ut 

1 1 00 T=0 
1110 GOTO 1070 
1120CLS:END 
DATA 


40 SPRITE OFF:XI 



,.T 


~.I.f" 

j ¡ 






.t.f 


! i 
i.i.i 


1 1 

; L 


: | 


j.j.r 

{. 

i.1. 



.í 

í ! 1 

L.„.j.. 

s» i 


i Essssai 




40 LOCATE 
50 LOCATE 

ar en su base* para h 


~~SÍ 

7< 

8<. 


L 


9< 


dé 1 a nave Be consigue 


).CüCATE 

IF RÍ< 
) E0CATE 


□CATES,17 


INPUT*( 


12, 3: PR I NT 11 AL UN 
2 ^ S ph I }MTi" Er es 


1, 11sRR 

S "Ó , ‘ANDR 
l T 13tPEI 
PÉXNTÍ'G 

1) > L 


ac 


er 


I Z AJE " 

el .ijntrpi do piloto de una nave espacial que debe al un i z] 

ésta [mani;obra di spones |. de.i popoj carburante,; E[1 crfntr 

con el cursor." i [ lili i_i |_i í j [ 

q^Tofst it k '' < ¡L > |TSiplf4PUTSTp | 


INT"Juegas con teclado l0> 

B< >"t "THEN60EÜSED¿-VAL Ofpl[. f 
MTf'El i|ge n i vje l de juego: " i LOCATE ISrPRIÑT"Si n grajvedajd ¡ti > " 5 L 
'“a vedad moderadi pLDCATE8,19: PR I NT-feupergr a ved ad }(3f) “:NJ=VA 


0 IFNJ< 1ÜRNJ >3THEN80ELJSE 
4E-03 

ÍÓO DEFDBEF 
110S¿REEN2, 

420 OP EN SEP * ? !• A S #t 
130 GGSÜB6401 
140 DINA"/. <128) 


IFN J -1THENN J =0ELSE IFN J=2THENN J =¿5E-04ELBE I.FN JN3.it H : E NN JfeiL 




24 AMIGOS DEL MSX - 1986 









































































































































































































CINE < 
LIlilE 


150 
160 

18Q PS-IN 
190 


SrTSET 


230 FOiRX 

24é tiñe 


00 

10 


o 

<0 

10, 

I 


IFfPS/ 


~ 1 00 

-ÍN 


:ÜTÜ256B 
¡IfxiTCRND 
50 K>1 NT (END ( ~T 


0) • 
e>- 


(RND ( 
I NT 


<Ü7T0Ü7 


(255,191), 

<255, 10 >i r 4, 

¡SO UN D I y 15 

T:i.hEk..*Ji.0hifei¡2d... 

F'S/2) THENF'S=PS+1 


'"I. 



CRN!) < i) Sí9+1;5) 


TEP2¡.í.].].J- 

(IT ^Í65Í52|5 !H".! 
I|v}E)i*9H-ll, ■#) 




27 ( 

) 

IF 

y< 

180 A 

MD 

y> 

VOANDK 

< 7 

TI- 

E^ 

8 

tS4 

*1 S 

Y :: 

"Y- 

H<: 

GOTÍ 

D3; 

io 




| 


















28c 

> 

t F 

y< 

180 A 

ND 

Y > 

9ü 

ANDK 

>7 

Th 

Ef\ 

Rr, 

T r <-t 

1 

Y= 

=Y4K¡ 

BQTÍ 

33: 

10 






















Í9< 

) 

E F 

y< 

=9pT 

HE 

MY 

EN 

=Y 

4 H" 



































; 

U í 

j 

o,* . 

1 r Y x* 

Lilac::. 

180 

¿A/. 

1 H 

y-: 

y- 

K 

















. 

















;• 

j i *• 

1 . 

... J. 1 M L*~ 

bdc..x. 

¿2 

A , 

Is 

T / 

V. 

H l l 




















. 











: 







:;.3( 

") 

IF 


10 

TH 

ENSu 

0 u 

T..ür 

3E 

LE 

El 

FR 

,11 

0.7 

"HFNF 

V t. 

>: 1 


7 























54 

) 

ME X T 








































55c 

> 

::, A IN 

r ( 

a:- ¡i 

18 

9) 

, 4 















|. 



















56 < 

D 

~ ÜRX 

*=p 

3 

Tü 

P 

84 

20 

8 

TE 

P4 

2 
































Ü. Z { 

CGí 

.) 

4. 

V/« < X 

acr v x 

Z2 

) 

PY 

+•1 

6 





































.< O 

5.9' 

:> 

mCL A í 

-QRX 
3LkI 

~o 

NT 

1025 

(BND 

68 

Ll 

TF 

R a :; 


































i 

4 

m:>< 

d. 

U5 

1A 

m Á í 

X7 

Ui ^^ 

2 ) 

JLd 

JL£ 

) 



























Ui 

3 

78 

*=i 

NT 

(RND 

(1 

) * 

14 

4 1 

r.z 

* V.m 

) 
























.*■ 







- 



I2< 

;> 

IFfcS 

= 4 

THEN 

41 

0 
































i 

Í3c 

:> 

='SET 

TX 

pp 

,c 

fe. 


































T-4* 

U5í 

J. 

") i 

MEKT 

ki.ifcpJ 

RE 

T.xko 

L L 

RX 

L,.R 

y) 


„ c 

i..| 










L .. 






















i 

76< 

b i 

CE : 

0 

s 8 

ÜSÜB56 

Os 

GO 

SU 

Bu 

9C 

i 










¡ 























17 < 

b i 

fr-. 

r~ B 

1 s 

FG 

N - 

1 S 

FX 

=0 

s F r 

Y~ 

1 C 

































i 

I 8 í 

J í 

pufrsi 

:: ‘R 

Ufe i 

, ( 

FX 

, F 

Y) 

,7 

, 1 

































x 

Í9( 

j 

IFPO 

1 N 

T (FX 

H~ .j» 

, F 

Y 4 

1 6 


4G 

RF 

*01 

N7 

‘ <í 

XH 

- 1 ::: 

p ü F 

r Yfl 6 ) = 

^4“ 

FHI 

ENI 

36' 

3 


















.* 

.t 

mui 

1 < 

i> 1 

£). \ 

D=ST 

bwnc¡] 

lUi 

"|C: 

FTCbB 

-ISkOUL 

) 

t"\. 

7.7 

i'y . 

"7.0 

. 

, 1 ,C 

.(-j. 

0 (- 

iy-| 

OI 


p"* 


Ib- 

ir 
























i: 

: y?( 

") i 


=F 

Uü 

X+l 

3+ 

“ij 

NJ 

:F 

U 9 

y= 

FY 

- 9 

4F 

/ Cj 

¡G* 

i. 

rU , 

AE 

/ / 

S ( 

FV 

O'- 

9 

O J 

• Q) 

i.. 

O a¡ 











[.| 













.. 1 . 


c 

_ y 

a.3< 

D. 1 

FG : 

ÉF 




[ 









.i 


.i 














i. 1 . 

* 

54< 

b i 

30TÜ 

48 

0 

















\ . 1 




.i 

i 

.......... i 








. 








.f. 


c 

55c 

D 

I FINI 

KE' 

Y* 

ii 

" T 

HE 

N5 

50 
















""“1 
















i 



56< 

:> i 

lINE 

< 6 - 

6 , 0 ) 

Pili), 

- ( 

mi 

JL. 

98 

> i 
RI 

0 ) 

NT 

, 4 
#1 

,E 
, L 

h 

ISI 











i 









j ! 







! 


1 


.I 

571 

7.0/ 

3.3 

r,i.i 

DRAW 

bjXTI I 

"B 

s P 

NG 

i"F 

•uh 

ÍTC 

) 8 s 

#=} 

m 

. 1 

r 1 ¡ 

. R" 

r 

i 






. 

J 



□ 









1 

n 

JO' 

59< 

J i 

").j 

r\n. f u 

DRAW 

rMN 

"B 

M 1 Í 2 Q 

.2 

>>. 

RR 

XN 

T# 

1 u 





"E 3 

II 









i 

j 

i 





... . i 








[ 



•> 0 ( 

:>i 

-GRH 

=2 

10 

TO 

, •*— 

24 

0 












""1 

| 




.] 





1 







.] 






I 


t 

bl( 

I) i 

~.INE 

(H 

r> 

9..± 

)- 

(H 

,8 

F 

10 



i 







.i 

1 


..J 







i 







| 










b 2 ( 

I) ( 

MEXT 


! 















.I 

..i 







.| 

.| 

.i 





j 


.j 





.3 



t 

S3< 

3 "1 

RETU 

BN 

















. 





. 








i 


| 






l 


. 

.. 

:>4U | 

b50 j 
b 6 .Q Í 

-OES 

BEAD 

3PRI 


ü 1 U i 

T^=T 
(SP 

5 T 

$4- 

GH 

X4 

.S...N 

s F 

(E 

EX 

GR 

\ n 

1 

Kl CT V X 

01 



! .i 

























; 


.i 

TE 

/ u 

T 





.| 

1 






.i 













.i 








< 

b70 i 

BE TU 

BN 


















i 











.i 










i 

b 8 c 

I) j 

DATA 

? ? 

9 9 

? 9 


? 5 

9 9 

*~> c: 
, , ;,A.U 

5, 

2S 

¡5, 

9 ? 

? si 

9 9 

!• !í 

5 ; 

9 1 

1 9 1 

1 255 

r> cr en;: 

1 4LÜJj¡ 

1 » !■ 

9 9 

f~y\ 

, 

9 -F 


Tí 

0 

28 

, l| 


7, 

15 

i, 5 

, 5 , 





3,: 

24 

9 9 \ 

¡i 5 

•i !• 

,224 

,4 

8, 

56 

, 48, 

6 '*• 

:4, 

2^ 

■0, 

160, 

160, 

u 

£ . ’ ; i 

24 




















} 

< 

b9* 

7fn 

7U 

J ] 

3. Í 

.< 

DATA 











. | 














.j 

.| 











3n'rU 

=sni it\i 

B*+* 

D8 

,9 




















I 


















72* 

:> . LIÑE 

12 

5 / 

41 

:::LR, 

0) 1— < 

24 

1 — 



0J 

, q 






i 

.( 



. 1 . 1 













.-••f--' 



73í 

:> 

IFCR 

>2' 

9T 

HENL 

IN 

E < 

20 

, i 

0C 

¡)- 

<: 


ijJ 

. 10) , 

1 

BF 

7 :Í 

)RAW 

•BM25, |; 

10 

D «i i 

i. 

SPRINT 

#l| 

11 

9 i 

TE QUEDASTE 

s. 





EN 

Cí 

=|RBU 

BAÍ 

NT 

E’ 1 

s F 

OR 

T= 

1TQ2 

;oc 

•O :| 

ÑE 

:xi 

- «d 

>Ol(JND8 5 

, Os 

RETURf 

vl980 

















T4< 

3 

30UN 

D8 

, o 

s BOU 

ND 

9 ; 

Os! 

SQ 

ILJN 

ID 10, 

0 























.I 



























.t.t 
























I 








.í 







■ í 



















] 





i 

| 















| 



198S - i 

AMIGOS 

DEL MSX • 

25 










¡ 





i 

i 







| 











1 1 






















. t 














! t 



.i.i. 1 










i ~ i j 




































































































































































































































































750 RETURN 
760FG=FG-j.01;G0SUB700:RETURN 


770G0SUB760:G0SUB780:RETURN 
780 FI =F I +. 01-: G0SUB700: RETURN 
790G0SUB780:GQSUB800:RETURN[ 
800 FG=FG+.01:G0SUB700:RETURN 
810 G0SUB800:G0SUB820:RETURN i 
820FI=FI—.01:GÜSUB700:RETURN 


G0SUB760:G0SUB820:RETURN 

IFFX>PSANDFX<#S+20THENLTNÉT{20, TP0|> -r(235, 110) , 1, BFELSE920 
DRAW " BM50, 102 " : PRI NT# 1, f‘ ¡ i i ALUNIZASTE! ! ! " 

PT-PT+1 NT (30--CR) *5: G0SUB560 

PLAY "T25504L4FL8FEDGR8L4FL8FEDGR8FEDGFEDG' 

FORT=1T03000: NE X T 
SCREENO:GOTO1000 
PUTSPRiTE i , (F X,FY),6, 

LINE(20,100)-(235,11O),1,BF 


BRAW , ' BM4o+ié2frPR|NT#l? " DESTROZASTE 

60 
I-2C" 


UNIZAJE (S/N)" 


PT--PT-INT (30-CR) *5: G0SUB5 
960 PLAY“02L8BL7AL6GL5FL4EL3D 
970 FORT =1TQ30Ü0:NEXT 
980 SCREENO 

yo ' d “ , “ ,, d : o chy' te4 < ' iol '- Fé T ^ nl^in R iy al 

)10 R$~INPUT$ (1) 

20 I FR*4 >"S " ANDR*4 >M’ANDR*NQT >" n " ANDR*< >" N" THEN104O 
30 Í.ER*é " S " ORRÜ>= " 4 ” THENSCREEN2:GOTO 150ELSECLS 
40 LOCATE 4,10:PRINT"PARA EL SIGUIENTE PROGRAMA" 

50 L0CATE4,12:PRÍNT"PULSA PLAY 
17664 L CASSETTE" 

1060¿LOAD 


TU 
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I. f 


4 — 4 - 


10 REM 1985 BY J.L.T. XV. .I-1.._. , 

20 COLOR 15,4,4:SCREEN.O:WIDTH 39 

21 LOCATE 5,2:PRINT"AJUSTE A UNA RECTA" 

22 LOCATE 2,5: F'RINT"Este programa ajusta una hube de puntos a una reda por 

el mtodo de losmínimos cuadrados. Tambin presenta en pantalla otros datos de int 
ers como" 

23 F'R I NT "var lanza, desvi aciones típicas, coej¬ 
ión, .fetc. " ■ .j... 




fieientes de regresión, corcelac 






































































































































































































24 

¡25 

¡30 

40 



•"f 

— 


Pul sa 
TREN 


tec 1 a 
ELSE CLS 


para comenzar 


rriñtjs print" 

1F Í I Iv1kE Y*^ Í " 

DEESNGA-Z 
X;NFUT" NUMERO 

50 FORI 4l TONPsINPUT"X = ";X(I): INPUT"Y=”;Y(I) .-NEXTI 
60 EX —O:FORI = 1TONP5 E X=E X + X< I) :NEXTI:EX=EX/NP 
70 EY^OsíFORI»DTONPs EY=EY+Y < I) s NEXTI: EY=EY/NP 
80 0X2=05 FORI = 1TONP:DX2ÍDX 2+(X(I )>ÉX> *(X<I)-EX):NEXTI 
90 DY2-05 FORITONP5DY2#DY2+ <Y(t)-EY)^ CY (I)HE Y) :NEXTI; 


DE PUNTOS: ";NP:DIMX(NP) ,Y(NP),Z <NP) 


.f. 

i 

.I. 




4, 




DX2=DX2/NF' 

DY2=DY2/NF' 


I : FXY=FXY/NF' 


100 FXY=OsFOR1 = 1TONP:FXY=FXY+X (i >*Y(I):NEXT! 

11.0 A= (FXY—EX*EY) / DX 2 í B-EY-EX * A 

120 CR=A: CC= (FXY-EX*EY) /SQR (DY2*DX2) :RC=CC)KCC: Z=B: B0SUB300 
130 CLS:LOCATEO,O:PRINT”ECX3=";EX:LÜCATEO,1:F'RINT"EC Y3 = ";EY:LOCATEO, 



=";FXY—EX*EY:LOCATEO,4: 
LOCATEO, 6: F'RINT"RECTA 


PRINT"VARI X 3 : 
DEREGRESION 


O = " ; FXY: LOCATEO ,j 3 : FRI NT ” COV L X , Y 3 = 

140 LOCATEO,5:PRINT"VARÉY3 = " ; DY2 

LOCATEO,7:PRINT"Y="+STR*(A)+"X"+S$:LOCATEO,S:PRINT"COEFICIENTE DE 
150 LOCATEO,9:PRINTCR:LOCATEO,10s PRINT"fcQEFICIENTE DE CORRELACION*" : 

CORRELACI0N=":LOCATEO, i 3:PRINTRC 
PARA GRAFICA,. LOCATEO, 18: F'RI NT "LA 


RINTCC:LOCATEO,12:PRINT“RAZON DE 
160 LOCATEO, 16: F'RI NT "PULSA TECLA 


2: F'RINT"ECXY 
: " ; DX2 

(Y SOBRE X): 
REGRESION=" 
LOCATEO,11:P 

GRAFICA F'ERM 


ANECERA EN":LOCATEO,19:PRINT"PANTALLA HASTA: QUE PULSES":LOCATEO,20:PRINT"TECLA. 


170 FOR Ii=l TONP: Z (I) =X < I) : NEXTI: G0SUB320: 
ÜB350: MX =MA: FORI = 1 TONP: X ( I) =Z (I) *255/MX 
ISO FOR1=1TONP:Z(I)=Y(I):NEXTI:G0SUB320 
UB350:MY=MA:FORI = 1TONP:Y <I> =Z(I)*190/MY 
1190 G$=INKEY*: I FG*=" " GOTO i 190 

200 SCREEN2 . . .I.].1. 

210 LINE (~NX*255/MX, O)--■ ( 

MY> ,1 

220 FORI=1TONP:PSET(X (I > ,190-Y(I)>,1:NEXTI 


NX=MIN: 

NEXTI 

NY=MIN¡ 

NEXTI 


F0RI = 1TÜNR:Z <I)=X(I)-NX:NEXTI:GOS 


FOR1 = 1TONP:Z(I)=Y ( I)-NY:NEXTI: GOS 


/MX,190),1:LINE(O,190+NY*190/MY)-(255,190+NY*190/ 


230 

240 

250 

260 

270 

280 


FORI=0T0256:X = I *255/MX:IF(X<O)OR(X>256)G0T0260 
Y=190—(A*I+B)*190/MY:IF<Y«0)OR(Y>¿90)GOTO 260 






390ELSEIFG*="O"ORG*="o"THENRUNELSEIFG*="F"ORG*="f" 


NEXTI 

G$=INKEY$:IFG$=""GOTO 270 

SCREENO:LOCATEO,10:PRINT"PULSAO PARA OTRO.":LOCATEO,12:PRINT"PULSA F PARA¡F 
INALIZAR. 

290 G*=INKEY*:IFG*=""THENGOTO 
THENG0TO380ELSEG0T0 290 

300 S$=STR$ <Z):IFZ>=OTHENS*=" + "+MID*>(STR*(Z) 

310 RETURN 

320 MIN=0:FOR1=1TONP:IFZ(I)>MING0T0 340 
330 MIN=Z(I) 

340 NEXTI:RETURN 

FOR1=1TONP:IFZ<I)CMAGOTO 370 


350 

360 

370 

380 

390 

400 


MA=0 
MA=Z(I) 

NEXTI5RETURN 

CLS:L0CATE4,10:PRINT"PARA EL SIGUIENTE PROGRAMA" 
L0CATE4, 12: PRINT "PULSA F'LAY EN EL CASSETTE" 

CLOAD 
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230 

240 

VERAS 1 

STOP 

3UI 
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f 7“ r ■ 


| J ! 



¡ .« 

"•VI. 



VéT"! 



“f" 


10 7 0000000000000000000 
20 7 0000 0000 
30 7 0000 C0LL-2000 0000 
40 7 0000 i 0000 

so ?oooooooooooooooaoaa 


“LUISSANGUINO ARIAS 


90 t 1 1986 

100 7 0000000000000000000 ...i. 

lio ’l 

120 COLOR 3,6,10 
130 SCREEN 3 f " 1 
140 OREN“GRP:"AS#1 

150 PSET(5,80),6SPRINT#!,"C0LL2000" 

160 FQR Y™1 TO 1500:NEXT. 

l Í 7 Q i GLOSE 

180 COLOR 1,14 

190; SCREEN ísKEY OFF 

20(3• LOCATE 3, 10: RRINT" JOTStlCK O CURSOR•CJ/C>" 
210 X*=INKEY* 

220: 1 = 1+ 1; I;FI >13 TI4EN 1 = 1 
230 VDP(7)=I | 

240 IF X#* "J"OR X* 

250 IF XÜ¡="c"OR X* 

260 GOTO 210 
270 COLOR 1,10,1 
280 OPEN"GRP:"AS#1 
290 SCREEN 2, 2 • s.FOR K=1 TO 
)):NEXT:SPRITE* <K)=B*sNEXT 
300 C¡$= " " : C*=:CHR* < 240) 

310 SPRITE$<6)=C$ 

320 Y=90:R=2:XE=256:Y2=10 
330 ON SPRITE GÜSUB 680 

340 ’ ¡ i ; i. ■ ¡ 

350 7 : . .I...... i.4. ..I . 

360 ’ 

370 Y2-Y2+R:E^E+l 

380 IF E> s =K THEN E-Os K=INT (RND (1 > *50) ; R= 

390: If Y2< ¿|0 ÍTHEN ■ Y2=Y2+4: R=f—R 
400 IF Y2>—185 THEN Y2~Y2-~4: R=-R 


j" THEN CT~1:GÜT0270 
C" THEN CT-Os G0T0270 


1 s FÜRI = lTO 3: 




¡ READ A$: : B*=B*+CHR$-(VAL ( ,, &H"+A$ 
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14110 ., 

420 

43o 

440 

Í4écr 
Í460~ 
Í47Í0 
4d0 
490 
500 

510 
520 

¡530 

540 

550 

560 

57¡Ü 

i580 

600 

610 

620 

630 

640 

1630 
660 
670 
680 
690 
700 
7 1¡0 
720 

7 .j.‘i (_) 

740 
750 
760 
770 
780 
790 
800 
.8 llO 
820 
830 
840 
850 
860 
870 
,80, 
,80, 
880 
890 
900 
910 


IB.Y <4.THEN 

PUTSF'R I TE 1 
PUTSPRITE 2 
PUTSPRITE 3 
GOSUB 560 
PÚTSPRIJE 
PÜTSPRITE 


Y 40 i 


, (220¿,Y2)¡, 4, 

, 150,42 ^ s (L2lp 2 


4 r, ( 301, 132) ,12 

5 ,jt 150 i, 92) , i-fe-,- 
PUTSPRI TE 6 1 (Í 83., 160.)t i ¡2, 


PUTSPRITE 7,(80,10) 


PUT SPRITES,(XB,YB ),1 ,6 

PUT SPRITE9, (XE, YE) , 1Í.6 
GOTO370 ' ? F 


D-BTICK(CT) 


IF 
IF 


=1 THEN Y-(Y~2)NOD 


: 5 THEN Y=(Y+ 2 )MOD 192 


IF Y 2 >—Y —2 AND Y2<Y+2 
IF XB >256 THEN GOSUB 700 

JÉ .XE <0 ! THEN GOSUB 700 

THEN XE 


IF DE 
IF DI 


IFSTRIG(CT) 
RETURN : 


XÉ-10 

1 THEN XB-XB-+-9: GOTO 650 

1 THEN BEEPíSPRITE 


XB-37: D I == 1 


YB—Y +6 

RETÚRN • 4 4 

IF XB >200 THEN.... EU=P.U+¿Oj 
XE<40 THEN 
1 
1 


IF 

IF 

IF 


DI = 
DE- 


790 ; 1 1 
THEN YB=209:DI 
THEN YE—209:DE 


LINE(75, ISO) -i 200, 192) ,1 O,BF 
SPRITE ÜFF 44 


(80,180) \ 10:PPINT#1,"PUNTOS 


PSET 
RETURN 
DE= 1 
SPRITE 
RETURN 

COLOR 15,13,1:SCREEN 
LOCATE 9,10:PRINT“R. 


XE=217s YE—Y2+6 
ÜN 


LOCATE 6 , 15: F'R I NT " PUNTOS= " « F'U 


LOCATE 

X* 

IF 'X*= 
IF X$4 
GOTO 8 
DATA 1 


4,20:PRINT“OTRA PARTIDA S7N“ 
INKEY* 

“S“ OR 
" ñ “ OR 


X$ = 
X$= 


s 

“ N “ 


:>U 


O 

DATA 


DATA 1,3,3. 



THEN OLEAR:GOTO 
THEN END 


1 F, 1 E , 1 E 
F, 3, 3, B, 

¡ ! j | 

, 1E,C,A, 
7,3, 1 ,8 O 

1 i 1 -J 

9,9,9, 
,CO,CO 

D, 0, 0, 0, 0, 
>,CC,DC,Fa 

, 0 , 0 , 0,0 

0, F8,78,' 
,7, 1,9,D 
0 ,CO,C 8,1 

, 0 , 0 , O, 1 
78,78,30 

“7 “T i 4 

,50,90 

| , 90, 9C 

>, BO 

9 / 9 ^9 1 9 1 

38,F8,CO 

Mi 

, 0 

, CO,DO 

', EO , CC 

i.1 i 

f, 80 

| ! j I 

...j 
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[ J 



j.r . r.{ 




1 i 



1 . h ’ 

\ 

/r II 




i i : j 

1 

XNc 5 





J 

_ f 








IB 
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J 1 
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[ 4 J j .i 


i i. r _i| 

j .i 
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:..j. 4 . 4 . ...|.L 
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4~4r 




h 



* i 

i 

1. 1 

1. ! 

i : 


.j 

i.; 

1 i 



rs irr ~ 

s I 







OOÜOOOÜOQOOOOOOÜOOO 
□OOO 0000 

:0000 FLYMAN 0000 

oooo; oooo 

'0000000000000000000 

, . - -• ! .i.r.I. i. i... 

: : : ' | : ? | 

'LUIS SANGUINO ARIASpt~t 

; : j : ; ; j i í j j i i 

: .i.j.í.i.i.!.f.s.r i i."i 

1 1. 1986 ! . . . . . - 

=••üoüoaaooüüüooüooüüü 

COLOR 1,10,3 
SCREEN 3 

OPEN IJ GRPs “AS# 1 J 

PSET(40,80) ,6: PRINT#1, “FLYMAN" 

POR V—1 TO 1500 s NEXT 

GLOSE 

COLOR 1,14: [. I 


-.!..í~~. i 

1 i 1. j | 

4. .j.i-. 

r ti ..n 

1.i.;.r. 

r. t .• i.1.t 

•-*n- 

|_.,L....L.L 

¡ . ] ~j. . .| 

i.i.].j.L 

r i i i 

1 5 '; V' ] 

1.í.r.[.j 

jiLtiil 

i i.¡.r.i 

i 1 1.j 1 

I i • i ! 

[. 4::: .. 1 . 4- 

[l | j | | 


i prt f 

TÍ .“í.1.1 

i.í.f.r -i 

t.n.r r 

i. T .t i.r 

: . : j | 

\—•••'!••”.i. i.-4- 

f ! | ! J 

. 

1 k i 1 I 

•|.T.t-.!.] 

f.i.I..}.{ 

. |“ 

í.i.¡."4.j •• 

[;.|.•? .í.I" 


188 

110 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

INE 

360 

370 

380 

390 

400 




LOCATE 3, 10:PRINT"JOTSTICK O CURSOR ÍJ/C> " 

X*=INKEY$ 

1=1+1:IFI>13 THEN 1=1 
VDP(7)=1 

IF X$="J"OR X*="j" THEN CT=i:G0T0270 
IF X$="c"OR X*="C" THEN CT=0:G0T0270 
GOTO 210 

KEY OFF: X=100s Y=170: Z=4: P=240: Q=10: R=Os N=6: T7.=0: S7.=0 
COLORI,5,1:SCREEN 2,2 
LINE(O,191)-1255,181),3,BF 

S$=" " : FOR Y=1 TO 8 : READ D: S*=S*+CHR* (D) 5 NEXT Y: SF'R I TE$ (1) =S$ 

B*="":F0RI=1T0 32 : READ A*: B¡J>=B*+CHR$ (VAL ( "StH' , +A$) ) s NEXT: SF'RITE* (2)=B$ 
OF'EN "grps " FOR OUTPUT AS#1 
GIROLE (25j,25)4 25, iSi PAINT (25,25),15 
LINE (O,171)—(255,171),11 

LINE (O,171)-(50,43),11sLINE(50,43)-(123,56),11:LINE (123,56)-(169,169),11 ¡ 
(169,169)-(184,101),11:LINE(184,101) — 1207,23),11sLINE(207,23)-(255, 156) , 11 
PAINT (100,100),11 
STRIG(CT) ON 
ON STRIG GOSUB 590 

PSET (100, 173) : F'RINT#1, "TIEMPO." 

S=STICK(CT) 


i 


. 
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410 

Á2ú: 

430 

440 

450 

460 

470 

480 

490 

500 

510 

520 

530 

540 

550 

560 

570 

580 

590 

600 

640 

620 

630 

640 

650 

660 

670 

680 

690 

700 

~Tid 


~*F+S-HH 
í F S~5 


nx==x +*z 


x-x—z 


! í/ssjYHZ 


<X, Y) , lj, 4 


F*= INKEY*:IF FiM 


0R F*="s ,, THEN RUN 


IF F*= 


ORF$k"N" THEN END 



P—P—Z: IFP<0 THEN P^255 s Q^Q+N 

IF Q>150 THEM X*j= “ ELÍHOMBRE-~MOSCA HA —l- 

IF T7.>0 THEN Q==10s F-240: R^O* ÍN=jN-»4; Z =?z41 j s f L fo Y f c f c f 8 j 3Q f rQ l 
ÍFS=1 THEN Y=Y-Z 
IF S#2 THEN y==Y'-f: 

.ÍF : S+3Í THEN.k=k"+-Z ].. . 

y Jy+ÍZ- 

THEN Y-Y+Z j . 

ÍF;S=6 THEN Y=Y.+ Z; 

IF S=¿7 THEN X=X~Z 
IF S=8 THEN X = X ~Z: 

IF X<1 THEN X=1 
IF Ytl 4 THEN Y~1í 
IF X >238 THEN X=23jE 

ÍF Y>180 THEN Y«i8P. ! 

PUT SPRitE 1 2 lS tibljUji? 

PUT SPRITE 1, 

GOTO 400 

R-R-+-1 O s LÍNE ;<-255rRfc 194>~<255, lOl) ,¡T5 , BF 
PLAY U f- H 

4F XÍPJ AÑD X<P*10 AND Y »Q AND Y<GHT6 THEN ÍS7—SXfM TX^4? RETURN 
IF R>250 THEN X$="TU TIEMPO HA TEFl MINADO 
RETURN 

SOPEEN O:LOCATE5,5:PRINTX* 

LOCATE 5 , 1 0: PRI NT P RONTOS OBTEN I DOS " S7. 

PRINT “00 TERES VOLVER ATUGAR9(S/N) 


G0T0670 j... .. . i.J.I.. . . . 

y, 2 32 32 252 32 32,32*0 

DATAO’OI O,Ó,1 \ 63,F7,FF,6F,3,4,38,0,0,0,0,0,0,0,1E,F8,EO, O ¡CO, £0, 

I í != * i t i | I I \ | { | | i ! I j I i t . \ i 

4.Í.i..4.i.1.1.i.i.Í.1.4.f.f 


SI PREFIERE SUSCRIBIRSE 




POR ,TELEFONO 
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...SI TIENES 
UN MSX, 

ESTAS SON 
TUSREVISTAS 


SUSCRI¬ 
BETE 
LLAMAN 
DO A 


LOS 

TELE¬ 

FONOS 


( 91 ) 266 66 01 
( 91 ) 266 66 02 






i 
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Para Programadores MSX 
tu fiel compañero. 

Esto no es un libro para el 
principiante novato, al con¬ 
trario, introduce al progra¬ 
mador MSX “dentro” del or¬ 
denador, para mostrarle exac¬ 
tamente como funciona y co- 
moobtenerel máximo partido. 

Los autores han dividido 
su libro en dos partes. 

La primera parte cubre el 
diseño del sistema, como el 
vocabulario de BASIC se rela¬ 
ciona con los ordenadores 
MSX, y una introducción có¬ 
digo máquina. Encontrará ex¬ 
plicaciones detalladas sobre la 
organización de la memoria, 
los modos de pantalla y los 
circuitos de vide y sonido. 

La segunda parte se dedica 
ál uso del lenguaje ensam¬ 
blador en el sistema MSX. Los principales apartados incluyen los 
puntos: 

— El procesador de pantalla de vídeo. 

— Ei circuito de sonido AY-3-8910. 

— Entradas/Salidas. 

Tanto si necesitas escribir programas de alta eficacia o 
solamente quieres como trabaja tu ordenador, este libro será 
inestimable. Pensamos que rápidamente se convertirá en el 
texto base para aquellos programadores que quieren hacer 
algo más que escribir programas en BASIC. 

P.V.P. 1800 pts! 



CODIGO MAQUINA 


PROGRAMACION 

PRACTICA 



La llegada de standar MSX, 
marca un paso significativo 
dentro del mundo de los or¬ 
denadores domésticos. Ofre¬ 
ce infinidad de excitantes 
oportunidades para progra¬ 
madores y usuarios. 

Este libro, supone que no 
tienes conocimientos previos 
sobre código máquina. Em- 
explicando las equivalentes 
en código máquina, de las 
principales instrucciones en 
Basic, tales como IF, FOR/ 

NEXT, PRINT, GOTO, GOSUB, 
etc... Continúa con la descrip¬ 
ción muy detallada de las ru¬ 
tinas individuales de un sim¬ 
ple juego: “INVASOR DEL 
ESPACIO”, y cómo se enlazan 
estas rutinas que puedes 
aprovechar en tus programas 
en Basic. 

• Aprende lo fácil que es i 
máquina dentro de tus programas en Basic. 

® Usa el código máquina para crear sonido y gráficos. 

• Diseña tus propios caracteres y "escenarios” con dos 
programas fáciles de usar. 

Tanto si simplemente desea incluir rutinas para acelerar y 
mejorar tus programas en Basic, como si quieres un programa 
completo y potente en código máquina, encontrarás este 
libro extremadamente útil. En él está suprimida la teoría que 
dificulta el código máquina, y se presenta de una forma 
práctica y divertida de aprenderlo. 


P.V.P. 1.200 pts. 





• La mayor variedad de libros de microinformática, 
capaces de satisfacer todas sus necesidades, ya sean 
profesionales, familiares, culturales... 

• Todo tipo de información bibliográfica sobre micro- 
ordenadores, desde AMSTRAD a SinclairQL 


TARJETA DE PEDIDO 


Domicilio de envíos: 

Nombre y apellidos 
Domicilio . 


N.° 


Piso.. 


Pta.. 


ce 

Q 

< 

2 


C. P.. 


Ciudad. Provincia. 


Ruego sírvanse remitirme CONTF3A REEMBOLSO los siguientes libros: 


Número 

Cantidad 

TITULO Y AUTOR 

Importe 
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DISPONIBLE PARA ZX SPECTRUM 
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CURSO DE 


Microordenador 
ZX SPECTRUM 


Para 

saber cómo 
habSar con los 
ordenadores 


El Curso CEAC a Distancia, 

BASIC + Microordenadores, 
le va a introducir paso 
a paso, con un cuidado 
método, en uno de los temas más 
apasionantes de nuestros días: 
la programación de ordenadores. 

Al aprender PRACTICANDO desde un principio 
a programar BASIC, lenguaje diseñado 
especialmente para dar los primeros pasos' 
en programación, estará sentando las bases 
para el estudio de cualquier otro 
lenguaje de alto nivel. 

Curso CEAC 

de BASIC+Microordenadores: 
un diálogo permanente 
con el ordenador. 


ESTAS ENSEÑANZAS SE AJUSTAN AL ART. 35 

DEL DECRETO 707/1976 Y A LA ORDEN MINISTERIAL DE 5/2/1979 


CEAC 


CENTRO DE ENSEÑANZA A DISTANCIA 
AUTORIZADO POR EL MINISTERIO DE 
EDUCACION Y CIENCIA N.° 8039185 

.(BOLETIN OFICIAL DEL ESTADO 3-6-83) 
Aragón, 472 (Dptoi.REF. T-XZ 08013 Barcelona 
Tel(93) 245 33 06 


Otros Cursos: 

- Introducción a 
la Informática 

- Electrónica (con experimentos) 

- Contabilidad 

- Fotografía 

- Curso de Video 

- Decoración 


GRATUITAMENTE 


deseo recibir a la mayor 
brevedad posible información 
If sobre el Curso de: . 


Nombre y apellidos. 


.Edad. 


Domicilio. 


C. Postal. 


. Población. 
. Provincia. 


Profesión, 


CEAC. Aragón, 472 

(Dpto. ref. T-xz ) 08013 Barcelona 
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